home *** CD-ROM | disk | FTP | other *** search
/ Windows 95 Super Collection / Windows 95 Super Collection.iso / win95 / programm / vbxstd20 / fdialbox.fr_ / FDIALBOX.FRM (.txt)
Encoding:
Visual Basic Form  |  1995-07-20  |  4.0 KB  |  124 lines
  1. VERSION 2.00
  2. Begin Form fdialbox 
  3.    BackColor       =   &H00E0E0E0&
  4.    Caption         =   "Files dialog box"
  5.    ClientHeight    =   3672
  6.    ClientLeft      =   1260
  7.    ClientTop       =   1740
  8.    ClientWidth     =   4428
  9.    Height          =   3996
  10.    Left            =   1212
  11.    LinkTopic       =   "fdialbox"
  12.    ScaleHeight     =   3672
  13.    ScaleWidth      =   4428
  14.    Top             =   1464
  15.    Width           =   4524
  16.    Begin CommandButton Command1 
  17.       Caption         =   "Close"
  18.       Height          =   420
  19.       Left            =   2856
  20.       TabIndex        =   3
  21.       Top             =   1956
  22.       Width           =   1500
  23.    End
  24.    Begin VBFCombo VBFCombo1 
  25.       AutoSearchInList=   -1  'True
  26.       AutoSetSel      =   -1  'True
  27.       BackColor       =   0  'Use system colors
  28.       Border3D        =   -1  'True
  29.       DataType        =   1  'Drives
  30.       FilesDisplay    =   0  'Quick display
  31.       ForeColor       =   &H00000000&
  32.       Height          =   312
  33.       Help            =   &H00000000&
  34.       InitialValue    =   -1
  35.       InValue         =   "*.*"
  36.       ItemHeight      =   18
  37.       Left            =   72
  38.       ListHeight      =   150
  39.       StaticHeight    =   18
  40.       TabIndex        =   2
  41.       Text3D          =   0  'No 3D
  42.       TextAlignment   =   2  'Left
  43.       Top             =   3240
  44.       UpperCase       =   0   'False
  45.       Prop25          =   &H00000000&
  46.       Width           =   2172
  47.       Prop23          =   0
  48.    End
  49.    Begin VBFList VBFList2 
  50.       BackColor       =   0  'Use system colors
  51.       Border3D        =   -1  'True
  52.       DataType        =   1  'Directories
  53.       DisableNoScroll =   0   'False
  54.       FilesDisplay    =   0  'Quick display
  55.       ForeColor       =   &H00000000&
  56.       Height          =   1212
  57.       Help            =   &H00000000&
  58.       InValue         =   "*.*"
  59.       ItemHeight      =   18
  60.       Left            =   72
  61.       MultipleSel     =   0   'False
  62.       OutValue        =   "d:\msvc\produits\vbxstd13\src\vbfcombo\fdialbox\"
  63.       ParentNotify    =   -1  'True
  64.       Sort            =   -1  'True
  65.       StaticHwnd      =   0
  66.       StaticID        =   0
  67.       TabIndex        =   1
  68.       Text3D          =   0  'No 3D
  69.       Top             =   1944
  70.       UpperCase       =   0   'False
  71.       UseHorizScrollBar=   0   'False
  72.       Prop35          =   &H00000000&
  73.       Width           =   2172
  74.       Prop33          =   0
  75.    End
  76.    Begin VBFList VBFList1 
  77.       BackColor       =   0  'Use system colors
  78.       Border3D        =   -1  'True
  79.       DataType        =   0  'Files
  80.       DisableNoScroll =   -1  'True
  81.       FilesDisplay    =   2  'Extensive mode
  82.       FontBold        =   0   'False
  83.       FontItalic      =   0   'False
  84.       FontName        =   "MS Sans Serif"
  85.       FontSize        =   7.8
  86.       FontStrikethru  =   0   'False
  87.       FontUnderline   =   0   'False
  88.       ForeColor       =   &H00000000&
  89.       Height          =   1788
  90.       Help            =   &H00000000&
  91.       InValue         =   "*.*"
  92.       ItemHeight      =   18
  93.       Left            =   72
  94.       MultipleSel     =   0   'False
  95.       OutValue        =   ""
  96.       ParentNotify    =   -1  'True
  97.       Sort            =   -1  'True
  98.       StaticHwnd      =   0
  99.       StaticID        =   0
  100.       TabIndex        =   0
  101.       Text3D          =   0  'No 3D
  102.       Top             =   72
  103.       UpperCase       =   0   'False
  104.       UseHorizScrollBar=   0   'False
  105.       Prop35          =   &H00000000&
  106.       Width           =   4284
  107.       Prop33          =   0
  108.    End
  109. Sub Command1_Click ()
  110. Unload fdialbox
  111. End Sub
  112. Sub VBFCombo1_SelChange (ID As Integer, Buffer As String)
  113. If (VBFCombo1.DriveValid) Then
  114.  VBFCombo1.GotoDrive = True
  115.  VBFList2.InValue = Left$(VBFCombo1.GetCurDir, Len(VBFCombo1.GetCurDir) - 1)
  116.  VBFList1.InValue = VBFCombo1.GetCurDir + "*.*"
  117.  MsgBox "Drive not ready!"
  118.  VBFCombo1.InValue = VBFCombo1.GetCurDir
  119. End If
  120. End Sub
  121. Sub VBFList2_DblClick (ID As Integer)
  122. VBFList1.InValue = VBFList2.OutValue
  123. End Sub
  124.